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AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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RRR 

RRR 

RRR 
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RRR = RRR 
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RRR RRR 
RRR RRR 
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PPPPPPPP AAAAAA SSSSSSSS EEEEEEEEEE Xxx XX PPPPPPPP 000000 

PPPPPPPP AAAAAA SSSSSSSS EEEEEEEEEE Xxx XX PPPPPPPP 000000 

PP PP AA SS EE XX XX PP PP 00 00 

PP PP AA AA SS EE XX XX PP PP 00 00 

PP PP AA $$ EE XX XX PP PP 00 00 

PP PP AA AA SS EE XX XX PP PP 00 00 

PPPPPPPP AA AA SSSSSS EEEEEEEE XX PPPPPPPP 00 00 

PPPPPPPP an AA SSSSSS EEEEEEEE XX PPPPPPPP 00 00 

PP AAAAAAAAAA SS EE XX XX PP 00 00 
PP AAAAAAAAAA SS EE XX Xx PP 00 00 | 
PP AA AR SS_ EE XX XX PP 00 00 eee 
PP Aa AA SS EE XX XX PP 00 00 eee 
PP AA SSSSSSSS EEEEEEEEEE Xx XX PP 000000 coer 
PP AL AA SSSSSSSS EEEEEEEEEE Xx XX PP 000000 eeee 
LL III] SSSSSSSS 

LL IIIII] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 
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1-001 — . g- En 1383 9 96:32 PASRTL.SRCJPASEXPO.MAR; 1 . (1) | 
TITLE eecenree - Return binary eagpnens of fhoasing va alue | 
~IDENT /1-001/ ; File: PASEXPO.MAR Edit : §BL1001 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
Sages a MAYNARD. MASSACHUSETTS. 


ED _ UNDER A LICENSE AND MAY BE USED AND COPIED 

SUCH LICENSE AND WITH THE 
USION OF THE A OPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ES THEREOF a N E PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R PERSON. NO TI TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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® ® 
ae * 
® ca 
® *® 
* TRANSFERRED. ‘ 
* * 
® * 
® *® 
® * 
® * 
® ® 
® * 
® ® 
te i 
** * 


1G 

SOFTWARE IS FUR 
IN ACCORDANCE 
SION OF THE 
$s 
Pp 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eompokat ite.” NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO os ety, 


BILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WH IS 


I 
H NOT SUPPLIED BY DIGITAL. 


SOOooooQooooooooooooooooooo 
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"FACILITY: Pascal Language Support 
ABSTRACT: 


This module contains four routines which return the binary exponent 
of a floating value for each of the four floating data types. 


ENVIRONMENT: Runs at any access mode, AST Reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 4-Nov-1980 
MODIFIED BY: 

1-001 - Original. SBL 4-Nov-1980 


SOOSCoOOCOOOOSOSOOSOOSOOOSOSOSOOOCOOOOOOOOOOOOOOOOOOCOOO 
SoOQCoooQooQooooooooooooo 

SoOoOCOCOCSCOCOOOOCOSOSOSOSOSOSOOCSOOOOSOOOOCOCOOOOOOOOOOOOOOoO 
CGOOCCOCOCOSOSOSOSSOSSSSOSSSOSOCCOOSOOCOCOOOOOOOOOOOOOCOOO 
PWN 9 ODNAUE WN O ODNAUE WN O OONOU EWI SOO ONOU ES Wh 
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1-001 DECLARATIONS Pte ° ait yy or 4 3 PASRTL.S RCIP ASEXPO.MAR; 1 . by 
009 2g -SBTTL DECLARATIONS 
0 6 $3 ; LIBRARY MACRO CALLS: 
00 49 ; 
000 50 ; NONE 
B33 
44 26 ; EXTERNAL DECLARATIONS: 
0000 54 -DSABL GBL 3; Force all external symbols to be declared | 
9000 35 NONE . | 
000 56 ; 
4 2f 3; MACROS: 
00 8 ; 
0000 59; NONE 
0000 60 ; 
0000 61 ; EQUATED SYMBOLS: 
0000 6¢ 3 
0000 63 ; NONE 
0000 64 ; 
0000 65 ; OWN STORAGE: 
0000 66 ; 
0000 67 ; NONE 
0000 68 ; 
5008 $) 3; PSECT DECLARATIONS: 
00000000 71 -PSECT _PASSCODE PIC, USR, CON, it LCL, SHR, - 
4464 i EXE, RD, NOWRT. LONG 
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4 
turn binary exponent of F mii aets 1 et; $6; 34 UPASRIL. SRCIPASEXPO.MAR; 1 
+4 ~SBTTL PASSEXPO_F = Return binary exponent of F_floating 
; ; FUNCTIONAL DESCRIPTION: 


vs 
os 
"SS 
ae 
L i | 
a 


OOoCooo 


; This routine returns the unbiased binary exponent of an F_floating value. 
; CALLING SEQUENCE: 

Result.wl.v = PASSEXPO_F (Single.rf.r) 

; FORMAL PARAMETERS: 


COCCOODco NYS D5 


MR OOODNAWES WN $$ O ODA EWN OOONOA NEW OOONOuM oo 


Single = F_floating argument 
; IMPLICIT INPUTS: 


: NONE 


; IMPLICIT OUTPUTS: 
NONE 
; ROUTINE VALUE: 


The unbiased binary exponent of the argument 


04 BC 
50 04 86C 08 07 


EF EXTZV ‘7, i, Rectan RO 
50 00000080 8F fe 


Fetch yon 
as #128, Unbias expone 


End of ey ney PASSEXPO_F 
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SIDE EFFECTS: | 

} SS$_ROPRAND - if the argument is a reserved operand | 

108° | 

0000 : -ENTRY PASSEXPO_F, “M<> ; Entry point | 
53 ' TSTF Test for reserved operand 
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1-001 PASSEXPO_D 


| 
: 
: 


0000 
73 


04 BC 
50 0468C 08 OQO7_ EF 
50 00000080 8F fe 
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- Return b 
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nary exponent of D 6=-SEP- 
+ -SBTTL PASSEXPO_D = Return binary exponent of D_floating 
; FUNCTIONAL DESCRIPTION: 


This routine returns the unbiased binary exponent of a D_floating value. 
: ; CALLING SEQUENCE: 


Result.wl.v = PASSEXPO_D (Double.rd.r) 


; ; FORMAL PARAMETERS: 


Double = D_floating argument 


; IMPLICIT INPUTS: 


NONE 


; IMPLICIT OUTPUTS: 


NONE 


; ; ROUTINE VALUE : 


The unbiased binary exponent of the argument 
SIDE EFFECTS: 
SS$_ROPRAND - if the argument is a reserved operand 


«ENTRY PASSEXPO_D, “M<> ; Entry point 

TSTD a4(A ; Test for reserved operand 
EXTZvV #7 We, Banh RO 3; Fetch pn nteaie dl 

SUBL2 #128, ; Unbias expone 

RET ; End of rant ine * PASSEXPO. D 


PASRTL.SRCJPASEXPO.MAR; 1 


Page 
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PASSEXPO - Cesurn binary Onpene 
1-001 PASSEXPO_G = Return binary exponent of G 6-SEP- PASRTL.SRCJPASEXPO.MAR; 1 
138 +e -SBTTL PASSEXPO_G - Return binary exponent of G_floating : 
5 : FUNCTIONAL DESCRIPTION: ; 
137 : This routine returns the unbiased binary exponent of a G_floating value. ; 
6 133 ; CALLING SEQUENCE: 
0 6 161 : Result.wl.v = PASSEXPO_G (Double.rg.r) ; 
096 188 ; FORMAL PARAMETERS: : 
$6 3 165 ; Double - G_floating argument ; 
0026 196 3 3 
0026 167 ; IMPLICIT INPUTS: $ 
0026 168 ; $ 
4 6 19 3 NONE ; 
026 170; 3 
0026 171 ; IMPLICIT OUTPUTS: 3 
0026 7 : 3 
0026 173; NONE 3 
0026 174; 5 
0026 175 ; ROUTINE VALUE: 3 
0026 176 3 3 
bp ? re 3 The unbiased binary exponent of the argument : 
0026 179 ; SIDE EFFECTS: : 
0026 180 ; ; j 3 
0026 181 ; SS$_ROPRAND - if the argument is a reserved operand ; 
0026 13 3 3 
0026 \3 see $ 
Bee 184 3 
0000 4 8 193 ENTRY PASSEXPO_G, “M<> ; Entry point 3 
04 BC 53FD 0028 # 187 TSTG a4 ( ; Test for reserved operand 
50.04 BC OB 04 EF OOeC 188 EXTZV #4 ai, gRs(AP). RO i Fetch exponent | 
50 00000400 8F C2 0032 189 SuBL2 #1024 ; Unbias expone | 
04 0039 £190 RET ; End of vaun tae * PASSEXPO. G | 
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nary exponent of H 


PASRTL.SRCJPASEXPO.MAR; 1 


~SBTTL PASSEXPO_H = Return binary exponent of H_floating 


:++ 
; FUNCTIONAL DESCRIPTION: 


This routine returns the unbiased binary exponent of an H_floating value. 


; CALLING SEQUENCE: 


PASSEXPO_H (Quad.rh.r) 


; FORMAL PARAMETERS: 
- H_floating argument 
; IMPLICIT INPUTS: 


; IMPLICIT OUTPUTS: 


; ROUTINE VALUE: 


The unbiased binary exponent of the argument 


; SIDE EFFECTS: 


SS$_ROPRAND - if the argument is a reserved operand 


PASSEXPO_H, “M<> 


4 (AP) 
0, #15, a4(AP), RO 


; Entry point 
; Test for reserved operand 


; Fetch exponent 


u 
x 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
] 
0 
0 
0 
0 
0 
0 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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; Unbias exponent 
; End of routine PASSEXPO_H 


; End of module PASSEXPO 


o 
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Symbol table 6-SEP- PASRTL.S RCIP ASEXPO.MAR; 1 (6) 


PASSEXPO_D 900 13 RG 1 
PASSEXPO_F RG 1 
PASSEXPO_G $38 6 RG 1 
PASSEXPO_H 000003A RG 1 


PSECT name Allocation PSECT No. Attributes 


ABS 00000000 ( .-} 0 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
PASSCODE QOOOO04E ( 78.) SS Ber PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
pew neowmwrnmeo ere e nme cen wre nr e ne + 
! \ Performance indicators : 
Page faults CPU Time Elapsed Time 
Initialization 10 00:00:00.09 00:00:00.70 
Command processing 74 ob SS 00:00:03.46 
Pass 1 64 00:00:00.50 00:00:01.97 
Symbol table sort 0 00:00:00.00 00:00:00.00 
Pass 2 52 00:00:00.41 00:00:01.92 
Symbol table output 2 00:00:00.01 00:00:00.01 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 206 00:00:01.70 00:00:08.09 


The working set Limit was 750 pages. 

2491 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local and 0 Local symbols. 
231 source Lines were read in Pass 1, producing 19 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


weer eee eee eee ese c ewes e neo e a} 


Macro Library name Macros defined 
“S255SDUAZB:(SYSLIBISTARLET.MLB;2 SSS 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/D] SABLE=(GLOBAL , TRACEBACK) /LIS=L1IS$:PASEXPO/OBJ=OBJ$:PASEXPO MSRC$:PASEXPO/UPDATE=(ENH$: PASE XPO) 
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